home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / src.first'last < prev    next >
Text File  |  2007-02-28  |  2KB  |  81 lines
  1.        .LIB C64SYMB
  2.        *    = $8009 ;$8000 FOR
  3.        .OPT LIST    ;AN EPROM
  4.        .BYT DEFPAG  ;+ROMMED FOR
  5.        .WOR END     ;AN EPROM
  6.        .WOR DUMMY
  7.        .BYT 10,'FIRST',39,'LAST'
  8.        .WOR PACK01
  9.        .WOR DUMMY
  10.        .BYT 0
  11. PACK01 .BYT 10,'FIRST',39,'REAL'
  12.        .WOR FRSTHD
  13.        .BYT 9,'LAST',39,'REAL'
  14.        .WOR LASTHD
  15.        .BYT 9,'FIRST',39,'STR'
  16.        .WOR FSTSHD
  17.        .BYT 8,'LAST',39,'STR'
  18.        .WOR LSTSHD
  19.        .BYT 9,'FIRST',39,'INT'
  20.        .WOR FSTIHD
  21.        .BYT 8,'LAST',39,'INT'
  22.        .WOR LSTIHD
  23.        .BYT 0
  24. ;
  25. FRSTHD .BYT FUNC+REAL
  26.        .WOR FIRST
  27.        .BYT 1
  28.        .BYT REF+ARRAY+REAL,1
  29.        .BYT ENDFNC
  30. LASTHD .BYT FUNC+REAL
  31.        .WOR LAST
  32.        .BYT 1
  33.        .BYT REF+ARRAY+REAL,1
  34.        .BYT ENDFNC
  35. FSTSHD .BYT FUNC+REAL
  36.        .WOR FIRST
  37.        .BYT 1
  38.        .BYT REF+ARRAY+STR,1
  39.        .BYT ENDFNC
  40. LSTSHD .BYT FUNC+REAL
  41.        .WOR LAST
  42.        .BYT 1
  43.        .BYT REF+ARRAY+STR,1
  44.        .BYT ENDFNC
  45. FSTIHD .BYT FUNC+REAL
  46.        .WOR FIRST
  47.        .BYT 1
  48.        .BYT REF+ARRAY+INT,1
  49.        .BYT ENDFNC
  50. LSTIHD .BYT FUNC+REAL
  51.        .WOR LAST
  52.        .BYT 1
  53.        .BYT REF+ARRAY+INT,1
  54.        .BYT ENDFNC
  55. ;
  56. FIRST  LDA  #1
  57.        JSR  FNDPAR
  58.        LDA  COPY1
  59.        CLC
  60.        ADC  #3
  61. RESTCD STA  COPY1
  62.        BCC  NXTST
  63.        INC  COPY1+1
  64. NXTST  LDY  #0
  65.        LDA  (COPY1),Y
  66.        PHA
  67.        INY
  68.        LDA  (COPY1),Y
  69.        TAY
  70.        PLA
  71.        JSR  INTFP
  72.        JMP  PUSHA1
  73. LAST   LDA  #1
  74.        JSR  FNDPAR
  75.        LDA  COPY1
  76.        CLC
  77.        ADC  #5
  78.        JMP  RESTCD
  79.        .BYT 0
  80. END    .END
  81.